home *** CD-ROM | disk | FTP | other *** search
- /****************************************************************************
- *
- * FILE: Pstrncpy.c
- * CREA: Sven Axelsson, GU
- * MODF: fredag 13 april 1990 @ 10.23.32
- * HIST: 90-04-13 (1.0) First version.
- *
- ****************************************************************************/
-
- # include "pstring.h"
-
-
- char *
- Pstrncpy(
- register Str255 s1,
- register Str255 s2,
- short n )
- {
- register unsigned int i;
- unsigned int l = s2[0];
- char *s = (char *) s1;
-
- for( i = 0; i <= l && i <= n; i++ ) {
- *s1++ = *s2++;
- }
- s[0] = --i;
-
- return( s );
- }